<:f,2Times New Roman,>The following macro adds the LoadFinder macro (below) to the File menu. It then calls your original Program Load macro, if you had one when AmiFind Installer was run. (This method is used if you only had one Program Load macro when A
miFind Installer was run.)
<:#284,9360>
Function AddFinderChain ()
Call AddFinder()
<:#284,9360>ThisFile=GetRunningMacroFile$()
<:#568,9360>InsertMenuItem (1, "&File", 11, "A&miFind...", "{ThisFile}!LoadFinder()", "Load AmiFind- find lost files by filename, description, keywords, date, or contents")
<:#284,9360>OldAutoExec=GetProfileString$ ("AmiFind", "Old Program Load Macro")
<:#284,9360>IF OldAutoExec<<<;>"" then
<:#284,9360> CALLI OldAutoExec ()
<:#284,9360>ENDIF
<:#284,9360>End Function
<:#284,9360>
<:f,2Times New Roman,><:f,2Times New Roman,>The following macro adds the LoadFinder macro (below) to the File menu.
<:f,2Times New Roman,><:f><:f,2Times New Roman,>(This method is used if you had more than one Program Load macro when AmiFind Installer was run., using _AUTORUN.SMM.)
<:f><:f,2Times New Roman,>AmiFind Installer added ADDFINDR.SMM!AddFinder<:f><:f,2Times New Roman,> to your AMIAUTO.CFG file.<:f>
<:f,2Times New Roman,>
<:f,BArial,>Fun<:f>ction AddFinder ()
ThisFile=GetRunningMacroFile$()
<:I216,0,504,0>InsertMenuItem (1, "&File", 11, "A&miFind...", "{ThisFile}!LoadFinder()", "Load AmiFind- find lost files by filename, description, keywords, date, or contents")
End Function
<:f,2Times New Roman,>
<:f,2Times New Roman,>The following macro runs AmiFind.<:f>